on translate_cursor me, setting, image, mask, Custom
if Custom then
set val to [member image, member mask]
return val
end if
return setting
end
on beginSprite me
set oldcursor to the cursor of sprite the spriteNum of me
set val to translate_cursor(me, the incursSet of me, customImage, customMask, useCustom)
set the cursor of sprite the spriteNum of me to val
end
on endSprite me
set the cursor of sprite the spriteNum of me to oldcursor
end
on mouseDown me
set val to translate_cursor(me, the incursDownSet of me, customDownImage, customDownMask, useCustomDown)
set the cursor of sprite the spriteNum of me to val
end
on mouseUpOutSide me
set val to translate_cursor(me, the incursSet of me, customImage, customMask, useCustom)
set the cursor of sprite the spriteNum of me to val
end
on mouseUp me
set val to translate_cursor(me, the incursSet of me, customImage, customMask, useCustom)
set the cursor of sprite the spriteNum of me to val
end
on getPropertyDescriptionList
set p_list to [#incursSet: [#comment: "Rollover Pointer Image:", #format: #cursor, #default: 1], #useCustom: [#comment: "Use Custom Pointer:", #format: #boolean, #default: 0], #customImage: [#comment: "Custom Image:", #format: #bitmap, #default: member 1], #customMask: [#comment: "Custom Mask:", #format: #bitmap, #default: member 1], #incursDownSet: [#comment: "Mouse Down Pointer Image:", #format: #cursor, #default: 1], #useCustomDown: [#comment: "Use Custom Pointer When Mouse Down:", #format: #boolean, #default: 0], #customDownImage: [#comment: "Custom Down Image:", #format: #bitmap, #default: member 1], #customDownMask: [#comment: "Custom Down Mask:", #format: #bitmap, #default: member 1]]
return p_list
end
on getBehaviorDescription
return "Makes the pointer image change when the pointer is over the current sprite, also defines a different pointer image to display when the sprite is clicked. Choose any of the pointers included with Director or a 1-bit bitmapped cast member." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Rollover Pointer Image - Choose the pointer image to appear when the pointer rolls over the sprite. Select one of Director's included pointers." & RETURN & "ΓÇó Use Custom Pointer - Turn this option on to specify a cast member instead of an included pointer." & RETURN & "ΓÇó Custom Image - ( optional ) Choose a cast member to use as the pointer image. This choice is ignored unless Use Custom Pointer is on." & RETURN & "ΓÇó Custom Mask - ( optional ) Choose a cast member to use as a mask image. " & RETURN & "ΓÇó Mouse Down Pointer Image - Choose one of Director's included pointers to be displayed when the mouse is down." & RETURN & "ΓÇó Use Custom Pointer When Mouse Down - Turn this option on to specify a cast member as the mouse down pointer instead of one of Director's included pointers." & RETURN & "ΓÇó Custom Down Image - ( optional ) Choose a cast member to use as a pointer image when the mouse is down. This setting is ignored unless Use Custom Pointer When Mouse Down is on." & RETURN & "ΓÇó Custom Down Mask - ( optional ) Choose a cast member to use as a mask image when mouse is down."
